home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / m4-1_0_3.lha / m4-1.0.3 / examples / sysv-args.m4 < prev    next >
Text File  |  1989-12-05  |  332b  |  15 lines
  1. divert(-1)
  2. define(`nargs', `$#')
  3. define(`concat', `ifelse(1, $#, `$1', `$1` 'concat(shift($@))')')
  4. traceon(`concat', `nargs')
  5. divert
  6.  
  7. nargs
  8. nargs()
  9. nargs(1,2,3,4,5,6)
  10.  
  11. concat()
  12. concat(`hej', `med', `dig')
  13. concat(`hej', `med', `dig', `en gang igen')
  14. concat(an, awful, lot, of, argument, at, least, more, that, ten, silly, arguments)
  15.